
************************************************************************************************************
**#							TABLE IA-13 - ROBUSTNESS OF QUINTILE APPROACH FOR EMPLOYEE TESTS
************************************************************************************************************

capture cd "/Users/joshw/CEO Pay Ratio/Analysis/"
use "Data/Temp/dataset_main.dta", clear

********************************
*Panel A: Deciles
********************************
est clear
eststo: xi: reghdfe gd_pay_diff_365 pr_dec_10 pr_dec_1 gd_pay_pre_365 size mtb roa io cash lev salesg_w tsr union rd ,absorb(indyr)
eststo: xi: reghdfe ln_prod_diff pr_dec_10 pr_dec_1 ln_prod_pre_365 size mtb roa io cash lev salesg_w tsr union rd fixed_assets, absorb(indyr)
eststo: xi: reghdfe gd_ceodis_diff_365 pr_dec_10 pr_dec_1 gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd ,absorb(indyr)
eststo: xi: ppmlhdfe words pr_dec_10 pr_dec_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe spin_num pr_dec_10 pr_dec_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe explain_num pr_dec_10 pr_dec_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe suppl_num pr_dec_10 pr_dec_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe tout_num pr_dec_10 pr_dec_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
esttab using "Output/Tables/RF/TIA13_deciles_robust.csv", b(3) ar2 pr2 varwidth(25) title("Decile PR Robustness") order(pr_dec_10 pr_dec_1) drop(gd_pay_pre_365 ln_prod_pre_365 gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd fixed_assets) star(* 0.10 ** 0.05  *** 0.01 ) replace

********************************
*Panel B: Quintiles
********************************
est clear
eststo: xi: reghdfe gd_pay_diff_365 pr_quint_5 pr_quint_1  gd_pay_pre_365 size mtb roa io cash lev salesg_w tsr union rd ,absorb(indyr)
eststo: xi: reghdfe ln_prod_diff pr_quint_5 pr_quint_1 ln_prod_pre_365 size mtb roa io cash lev salesg_w tsr union rd fixed_assets ,absorb(indyr)
eststo: xi: reghdfe gd_ceodis_diff_365 pr_quint_5 pr_quint_1 gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd ,absorb(indyr)
eststo: xi: ppmlhdfe words pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe spin_num pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe explain_num pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe suppl_num pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe tout_num pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
esttab using "Output/Tables/RF/TIA13_quintiles_robust.csv", b(3) ar2 pr2 varwidth(25) title("Quintiles PR Robustness") order(pr_quint_5 pr_quint_1) drop(gd_pay_pre_365 ln_prod_pre_365 gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd fixed_assets _cons) star(* 0.10 ** 0.05  *** 0.01 ) replace

********************************
*Panel C: Quartiles
********************************
est clear
eststo: xi: reghdfe gd_pay_diff_365 pr_quart_4 pr_quart_1  gd_pay_pre_365 size mtb roa io cash lev salesg_w tsr union rd ,absorb(indyr)
eststo: xi: reghdfe ln_prod_diff pr_quart_4 pr_quart_1 ln_prod_pre_365 size mtb roa io cash lev salesg_w tsr union rd fixed_assets ,absorb(indyr)
eststo: xi: reghdfe gd_ceodis_diff_365 pr_quart_4 pr_quart_1 gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd ,absorb(indyr)
eststo: xi: ppmlhdfe words pr_quart_4 pr_quart_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe spin_num pr_quart_4 pr_quart_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe explain_num pr_quart_4 pr_quart_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe suppl_num pr_quart_4 pr_quart_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe tout_num pr_quart_4 pr_quart_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
esttab using "Output/Tables/RF/TIA13_quartiles_robust.csv", b(3) ar2 pr2 varwidth(25) title("Quartiles PR Robustness") order(pr_quart_4 pr_quart_1) drop(gd_pay_pre_365 ln_prod_pre_365 gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd fixed_assets _cons) star(* 0.10 ** 0.05  *** 0.01 ) replace

********************************
*Panel D: Terciles
********************************
est clear
eststo: xi: reghdfe gd_pay_diff_365 pr_terc_3 pr_terc_1  gd_pay_pre_365 size mtb roa io cash lev salesg_w tsr union rd ,absorb(indyr)
eststo: xi: reghdfe ln_prod_diff pr_terc_3 pr_terc_1 ln_prod_pre_365 size mtb roa io cash lev salesg_w tsr union rd fixed_assets ,absorb(indyr)
eststo: xi: reghdfe gd_ceodis_diff_365 pr_terc_3 pr_terc_1 gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd ,absorb(indyr)
eststo: xi: ppmlhdfe words pr_terc_3 pr_terc_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe spin_num pr_terc_3 pr_terc_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe explain_num pr_terc_3 pr_terc_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe suppl_num pr_terc_3 pr_terc_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe tout_num pr_terc_3 pr_terc_1 size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
esttab using "Output/Tables/RF/TIA13_terciles_robust.csv", b(3) ar2 pr2 varwidth(25) title("Terciles PR Robustness") order(pr_terc_3 pr_terc_1) drop(gd_pay_pre_365 ln_prod_pre_365 gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd fixed_assets _cons) star(* 0.10 ** 0.05  *** 0.01 ) replace

********************************
*Panel E: Continuous
********************************
est clear
eststo: xi: reghdfe gd_pay_diff_365 ln_pr gd_pay_pre_365 size mtb roa io cash lev salesg_w tsr union rd ,absorb(indyr)
eststo: xi: reghdfe ln_prod_diff ln_pr ln_prod_pre_365 size mtb roa io cash lev salesg_w tsr union rd fixed_assets, absorb(indyr)
eststo: xi: reghdfe gd_ceodis_diff_365 ln_pr gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd ,absorb(indyr)
eststo: xi: ppmlhdfe words ln_pr size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe spin_num ln_pr size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe explain_num ln_pr size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe suppl_num ln_pr size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
eststo: xi: ppmlhdfe tout_num ln_pr size mtb roa io cash lev salesg_w tsr union rd, absorb(indyr)
esttab using "Output/Tables/RF/TIA13_continuous_robust.csv", b(3) ar2 pr2 varwidth(25) title("Continuous PR Robustness") order(ln_pr) drop(gd_pay_pre_365 ln_prod_pre_365 gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd fixed_assets _cons) star(* 0.10 ** 0.05  *** 0.01 ) replace
